Language/OS - Multiplatform Resource Library/LANGUAGE OS.iso/oper_sys/fp/ifp_unix.lzh/ifp/fproot/math/linear/U

Text File | 1987-02-09 | 167 b | 12 lines

(* U part of LU decomposition of matrix *)

DEF U AS
   IF Singleton THEN id
   ELSE
      [
         U1k,
     Aik | [EACH #0 END,U] | ApndlCol
      ] | apndl
   END;